home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / datacomm / vltjr-5.045.lzh / rexx / ExtractTest.rexx < prev    next >
OS/2 REXX Batch file  |  1991-01-21  |  2KB  |  86 lines
  1. /** ExtractTest.rexx
  2. *
  3. *   Extract all fields from VLT
  4. *
  5. **/
  6. address VLT
  7. 'extract'
  8. /*
  9. *   Loop over all the fields
  10. */
  11. do i = 1 to VLT.fields
  12.    a = VLT.fields.i
  13. /*
  14. *   Handle all fields with subfields in a special way
  15. */
  16.    if   a = "COLOR" then do
  17.       do j = 0 to VLT.color - 1
  18.          a = VLT.fields.i"."j
  19.          say overlay(a, copies(" ", 30)) " = " VLT.a
  20.       end
  21.    end
  22.    else if a = "FIELDS" then do
  23.       say overlay(a, copies(" ", 30)) " = this list"
  24.    end
  25.    else if a = "FUNCTIONKEY" then do
  26.       do j = 1 to VLT.functionkey
  27.          a = VLT.fields.i"."j
  28.          say overlay(a, copies(" ", 30)) " = " VLT.a
  29.       end
  30.    end
  31.    else if a = "FUNCTIONKEYALT" then do
  32.       do j = 1 to VLT.functionkeyalt
  33.          a = VLT.fields.i"."j
  34.          say overlay(a, copies(" ", 30)) " = " VLT.a
  35.       end
  36.    end
  37.    else if a = "FUNCTIONKEYCTRL" then do
  38.       do j = 1 to VLT.functionkeyctrl
  39.          a = VLT.fields.i"."j
  40.          say overlay(a, copies(" ", 30)) " = " VLT.a
  41.       end
  42.    end
  43.    else if a = "FUNCTIONKEYPADALT" then do
  44.       do j = 1 to VLT.functionkeypadalt
  45.          a = VLT.fields.i"."j
  46.          say overlay(a, copies(" ", 30)) " = " VLT.a
  47.       end
  48.    end
  49.    else if a = "FUNCTIONKEYPADSHIFTALT" then do
  50.       do j = 1 to VLT.functionkeypadshiftalt
  51.          a = VLT.fields.i"."j
  52.          say overlay(a, copies(" ", 30)) " = " VLT.a
  53.       end
  54.    end
  55.    else if a = "FUNCTIONKEYSHIFT" then do
  56.       do j = 1 to VLT.functionkeyshift
  57.          a = VLT.fields.i"."j
  58.          say overlay(a, copies(" ", 30)) " = " VLT.a
  59.       end
  60.    end
  61.    else if a = "FUNCTIONSCREENGADGET" then do
  62.       do j = 1 to VLT.functionscreengadget
  63.          a = VLT.fields.i"."j
  64.          say overlay(a, copies(" ", 30)) " = " VLT.a
  65.       end
  66.    end
  67.    else if a = "FUNCTIONUSERMENU" then do
  68.       do j = 1 to VLT.functionusermenu
  69.          a = VLT.fields.i"."j
  70.          say overlay(a, copies(" ", 30)) " = " VLT.a
  71.       end
  72.    end
  73.    else if a = "SCHEDULESPENDING" then do
  74.       do j = 1 to VLT.schedulespending
  75.          a = VLT.fields.i"."j
  76.          say overlay(a, copies(" ", 30)) " = " VLT.a
  77.       end
  78.    end
  79. /*
  80. *   All other fields
  81. */
  82.    else do
  83.       say overlay(a, copies(" ", 30)) " = " VLT.a
  84.    end
  85. end
  86.